home *** CD-ROM | disk | FTP | other *** search
/ Children's Atlas of the United States / Children's Atlas of the United States.iso / usatlas.inf < prev    next >
Text File  |  1994-10-11  |  4KB  |  148 lines
  1. ;; Install the Rand McNally Children's Atlas of the United States
  2.  
  3. DefineVariables
  4.   Logical [Ok] := YesCharacter
  5.   Text [ProductName] := Rand McNally Children's Atlas of the United States             
  6.   Text [ProductShortName] := Children's US Atlas
  7.   Text [USAtlasExe] := USATLAS0.EXE
  8.   Text [IconFile] := USATLAS.ICO
  9.   Text [IconCmd]
  10.   Text [IconPath]
  11.   Text [ReadmeCmd]
  12. EndDefineVariables
  13.  
  14. ;; Install logo bit map for display 
  15. ;;CopyFiles
  16. ;;  from [InstallFromDrive]:\
  17. ;;  to ShadowDirectory Quietly
  18. ;;  SETUP.BMP
  19. ;;  SETUPMSK.BMP
  20. ;;EndCopyFiles
  21.  
  22. ;; Setup logo and screen
  23. SetDefaultBitmap off
  24. LoadBitMap 1 [InstallFromDrive]:\SETUP.BMP SETUPMSK.BMP
  25. ShowBitMap 1 @xy(5,5)
  26. ;;SetBackgroundColor 0 0 64 191 64 0
  27. ShowWindow Maximized
  28.  
  29. ;; May I see your papers please?
  30. if 808X
  31.   [Ok] := NoCharacter
  32. else
  33.   if 8018X
  34.     [Ok] := NoCharacter
  35.   else
  36.     if 80286
  37.       [Ok] := NoCharacter
  38.     Endif
  39.   Endif
  40. Endif
  41. if [Ok] = NoCharacter
  42.   Dialog
  43.     [ProductName] requires at least a 386/25 processor.
  44.     A 486/25 or better processor is highly recommended.
  45.   EndDialog
  46.   SoLong Quietly
  47. Endif
  48. if .NOT. Windows
  49.   Dialog
  50.     [ProductName] must be setup from Windows
  51.   EndDialog
  52.   SoLong Quietly
  53. Endif
  54. if WindowsVersion < 3.1
  55.   Dialog
  56.     [ProductName] must be setup from Windows 3.1 or higher
  57.   EndDialog
  58.   SoLong Quietly
  59. Endif
  60. [Number1] := MainMemory
  61. [Number2] := ExtendedMemoryPresent
  62. if [Number1] + [Number2] < 7000
  63.   Dialog
  64.     WARNING: You may experience problems running [ProductShortName]
  65.     with less than 8 Megabytes of memory.
  66.   EndDialog
  67. Endif
  68.  
  69. ;; Product Introduction Screen
  70. Dialog
  71.   Since [ProductName]
  72.   is designed to be run from its CD-ROM disk, setup is quite
  73.   simple.  One or two initialization files, along with an
  74.   icon file, will be copied to your Windows directory, and
  75.   a new program item will be added to your Program Manager.
  76.   That's all there is to it.     
  77. EndDialog
  78.  
  79. [InstallationDirectory] := [WindowsDirectory]
  80. ;; This next check seems absurd, but we've had a user report
  81. ;; a script error message stating that the destination drive
  82. ;; did not exist!
  83. if .NOT. DriveIsPresent InstallationDrive
  84.   [InstallationDirectory] := BlankString
  85.   Dialog [InstallationDirectory] 44
  86.     Setup could not find your Windows directory!
  87.     Please supply the path to your Windows directory
  88.     (leaving off the final backslash), or type "C:\QUIT" 
  89.     to quit setup.
  90.   EndDialog
  91.   if [InstallationDirectory] = C:\QUIT
  92.     SoLong Quietly
  93.   Endif 
  94. Endif
  95.     
  96. CopyFiles from [InstallFromDrive]:\
  97.   USATLAS.INI
  98.   USATLAS.ICO
  99. EndCopyFiles
  100.  
  101. if .NOT. FileExists [InstallationDirectory]\QTW.INI
  102.   CopyFiles from [InstallFromDrive]:\
  103.     QTW.INI
  104.   EndCopyFiles
  105. Endif
  106.  
  107. ;; Use ProgramManagerDDe to create a program group
  108. [IconCmd] := [InstallFromDrive]:\[USAtlasExe]
  109. [IconPath] := [InstallationDirectory]\[IconFile]
  110. [ReadmeCmd] := [InstallationDirectory]\WRITE.EXE [InstallFromDrive]:\README.WRI 
  111. ProgramManagerDDe
  112.   CreateGroup([ProductShortName])
  113.   ReplaceItem([ProductShortName])
  114.   AddItem([IconCmd],[ProductShortName],[IconPath],[InstallFromDrive]:\)
  115.   ReplaceItem(Read Me)
  116.   AddItem([ReadmeCmd],Read Me,WRITE.EXE,BlankString)
  117. EndProgramManagerDDE
  118. ;; Exit dialog box and messages
  119. Dialog
  120.   [ProductName] installation is complete.
  121.  
  122.   To explore the Atlas, click on the [ProductShortName] icon
  123.   in the [ProductShortName] program group.
  124. EndDialog
  125.  
  126. Procedure DDENonFatalErrorTrap
  127. ;; Purpose of DDENonFatalErrorTrap:
  128. ;; If a procedure with this name is present in the script and a non-fatal
  129. ;; Program Manager DDE error occurs, then this procedure will be executed.
  130. ;; 
  131. ;; Possible Text Error Codes Are:
  132. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  133. ;;      ddeInitiate failed
  134. ;;      pmAddItem failed
  135. ;;      pmClose failed
  136. ;;      pmCreateGroup failed
  137. ;;
  138. ;; To trap a DDENonFatalError and respond to it, use the following code
  139. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  140. ;; If [Number1] > 0 
  141. ;;    Dialog
  142. ;;      NonFatal error in AddItem occurred
  143. ;;      Error Text : DDENonFatalError
  144. ;;    EndDialog
  145. EndProcedure
  146.  
  147. EndScript
  148.